home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XRIGHT.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  261b  |  14 lines
  1. {$IBoDecl}
  2. {$IRight}
  3. {$IPutStr}
  4.  
  5.  
  6. BEGIN
  7.  
  8.    ClrScr;
  9.    PutStr (h,Right ('0.12',12,' '),1,2,14);
  10.    PutStr (h,Right ('77,126.99',12,' '),1,3,14);
  11.    PutStr (h,Right ('1,345,200.06',12,' '),1,4,14);
  12.    PutStr (h,Right ('35.00',12,' '),1,5,14);
  13.  
  14. END.